Application.ExecuteCommand("Filter")
SelectionFilterDlg.Nothing.Click()
SelectionFilterDlg.SelectionObjectsDlg.Reuse = true
SelectionFilterDlg.Ok.Click()
Application.ExecuteCommand("Select All")
Application.ExecuteCommand("Break Reuse")
DlgPrompt.Question("OK to Break Reuse(s) ?").Answer(mbOK)
Application.ExecuteCommand("Filter")
SelectionFilterDlg.Nothing.Click()
SelectionFilterDlg.SelectionObjectsDlg.Nets = true
SelectionFilterDlg.Ok.Click()